home *** CD-ROM | disk | FTP | other *** search
/ Sky at Night 2005 November / SAN CD 11-2005 CD-ROM 6.iso / pc / Quicktime / QuicktimeMac / QuickTimeInstallerX.dmg / QuickTime652.pkg / Contents / Resources / deleteomatic < prev    next >
Encoding:
Text File  |  2004-09-24  |  772 b   |  46 lines
  1. #!/usr/bin/perl
  2.  
  3. my $ROOT_DIR = $ARGV[0];
  4. my $DATA_FILE = $ARGV[1];
  5.  
  6. open (FILE, $DATA_FILE) || die ;
  7.  
  8. while (defined ($deleteme = <FILE>)) {
  9.     chomp $deleteme;
  10. #    system("/bin/rm -rf \"" . $ROOT_DIR . $deleteme . "\"");
  11.     if (length($deleteme) > 0)
  12.     {
  13.         deleteTree($ROOT_DIR . $deleteme);
  14.     }
  15. }
  16.  
  17. sub deleteTree
  18. {
  19.     my $path            = $_[0];
  20.  
  21.     if (-e $path)
  22.     {
  23.         if (-d $path)
  24.         {
  25.             local* THEDIR;
  26.             my $file;
  27.  
  28.             opendir THEDIR, $path;
  29.  
  30.             while ($file = readdir THEDIR)
  31.             {
  32.         if ($file ne '.' && $file ne '..')
  33.         {
  34.             deleteTree($path . "/" . $file);
  35.         }
  36.             }
  37.  
  38.             closedir THEDIR;
  39.  
  40.         rmdir $path;
  41.         } else {
  42.             unlink $path;
  43.         }
  44.     }
  45. }
  46.